home *** CD-ROM | disk | FTP | other *** search
/ Windows News 2005 November / WNnov2005.iso / Windows / Equipement / hMailServer / hMailServer-4.1-Build-136.exe / {app} / Addons / Utilities / DecryptBlowfish.vbs next >
Text File  |  2005-01-02  |  245b  |  14 lines
  1. Option Explicit
  2.  
  3. Dim oApp
  4. Set oApp = CreateObject("hMailServer.Application")
  5.  
  6. dim sInput
  7. sInput = Inputbox("Enter encrypted password")
  8.  
  9. dim sOutput
  10. sOutput = oApp.Utilities.BlowfishDecrypt(sInput)
  11.  
  12. msgbox sOutput
  13.  
  14. Set oApp = Nothing